home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / gfx / misc / SvII-1.lha / SViewII / ARexx-Scripts / LoadRequest.rx < prev    next >
Encoding:
Text File  |  1999-07-01  |  810 b   |  48 lines
  1. /*
  2.    $VER: LoadRequest.rx V8.00 (22.7.98)
  3.    © 1993-98 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates some kind of remote control of SViewII
  6.    by using SViewII's ARexxPort.
  7.  
  8. */
  9.  
  10. address command
  11.  
  12. SViewII "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  13.  
  14. say ""
  15. say "ARexx: SViewII has been started : Waiting a moment..."
  16.  
  17. wait 5
  18.  
  19. OPTIONS RESULTS
  20. SIGNAL ON ERROR
  21. SVIIPORT = 'SViewII.rx'
  22. SVNGPORT = 'SViewNG.rx'
  23. SVPORT   = 'SuperView.rx'
  24.  
  25. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  26. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  27. IF ~SHOW('P',SVPORT) THEN DO
  28.   say "Could not locate ARexx port of SViewII !"
  29.   CALL ErrorOut 0
  30. END
  31.  
  32. ADDRESS VALUE SVPORT
  33.  
  34. 'OPEN_GUI'
  35. 'REQUEST'
  36.  
  37. CALL ErrorOut 0
  38.  
  39.  
  40. /* Errorout procedure ----------------------- */
  41.  
  42. ErrorOut:
  43.         PARSE ARG ExitCode
  44.  
  45.         EXIT ExitCode
  46.  
  47.   END
  48.